(x-create-frame-with-faces): Set threshold for "light color"

at .6 of the total for white.

diff --git a/lisp/faces.el b/lisp/faces.el
index 6489bbcfaa71eeabbecf7a81c47e75af1dbebd33..003262e6610f6e96a469499cb3a1ce3e1a0c544d 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1101,7 +1101,10 @@ selected frame."
                  ((< (apply '+ (x-color-values
                                 (cdr (assq 'background-color params))
                                 frame))
-                     (/ (apply '+ (x-color-values "white" frame)) 3))
+                     ;; Just looking at the screen,
+                     ;; colors whose values add up to .6 of the white total
+                     ;; still look dark to me.
+                     (* (apply '+ (x-color-values "white" frame)) .6))
                   'dark)
                  (t 'light)))
       (modify-frame-parameters frame